home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Process / Fades / do-fit < prev    next >
Text File  |  1998-10-23  |  2KB  |  71 lines
  1. do-fit below-center above-center vector
  2. do-fit2 absolute-min absolute-max vector
  3.  
  4. These are controller timing functions and scale the vector to a proper range and fit it to the zones of the current section which must be defined earlier with def-section-timesheet. The vector length must be calculated with sheetlen function, which performs the calculation based on the sum of all zone lengths divided by the length value of the controller-only instrument.
  5.  
  6. do-fit scales the values around a center 64, which is used in some synthesizers to represent the default value of the current sound, to which changes are to be made adding or subracting values from it.
  7.  
  8. do-fit2 scales the values absolutely to a given min and max values. 
  9.  
  10. See also do-fades.
  11.  
  12. (def-section sect-a
  13.    heartcnt
  14.      channel 1
  15.      symbol '(=)
  16.      velocity '(0)
  17.      length '(1/16) 
  18.      controller (mu80-controllers
  19.                   volume (do-fades 20 65 0)
  20.                   panning (do-fit -40 40 (gen-sin (* 2 6 (fibonacci 7)) 2 (sheetlen)))
  21.                   filter (do-fit 0 25 (gen-sin (* 2 6 (fibonacci 5)) 2 (sheetlen))))
  22.    voice1cnt
  23.      channel 3
  24.      symbol '(=)
  25.      velocity '(0)
  26.      length '(1/16) 
  27.      controller (mu80-controllers
  28.                   volume (do-fades 20 55 0 4 6))
  29.    voice2cnt
  30.      channel 2
  31.      symbol '(=)
  32.      velocity '(0)
  33.      length '(1/16) 
  34.      controller (mu80-controllers
  35.                   volume (do-fades 0 54 0 6 6))
  36.   voice3cnt
  37.      channel 4
  38.      symbol '(=)
  39.      velocity '(0)
  40.      length '(1/16) 
  41.      controller (mu80-controllers
  42.                   volume (do-fades 20 64 0 4 6))
  43.    heartbeat
  44.      channel 1
  45.      symbol (adjust-symbol)
  46.      length '(1/8) 
  47.      duration (adjust-duration)
  48.      controller (mu80-controllers
  49.                   filter (list (vector-round 50 90 (gen-sin 1 0.3 32))))
  50.    voice1
  51.      channel 3
  52.      symbol (adjust-symbol)
  53.      length '(1/8) 
  54.      duration (adjust-duration)
  55.      controller (mu80-controllers
  56.                   filter (list (vector-round 50 90 (gen-sin 1 0.3 32))))
  57.    voice2
  58.      channel 2
  59.      symbol (adjust-symbol)
  60.      length '(1/8) 
  61.      duration (adjust-duration)
  62.      controller (mu80-controllers
  63.                   filter (list (vector-round 50 90 (gen-sin 1 0.3 32))))
  64.    voice3
  65.      channel 4
  66.      symbol (adjust-symbol)
  67.      length '(1/8) 
  68.      duration (adjust-duration)
  69.      controller (mu80-controllers
  70.                   filter (list (vector-round 50 90 (gen-sin 1 0.3 32))))
  71. )